/* $VER: 1.0, ©1996 Dietmar Eilert. Create empty HTML document */ OPTIONS RESULTS /* enable return codes */ if (LEFT(ADDRESS(), 6) ~= "GOLDED") then /* not started by GoldEd ? */ address 'GOLDED.1' 'LOCK CURRENT RELEASE=4' /* lock GUI, gain access */ if (RC ~= 0) then exit OPTIONS FAILAT 6 /* ignore warnings */ SIGNAL ON SYNTAX /* ensure clean exit */ /* ------------------------ INSERT YOUR CODE HERE: ------------------- */ 'QUERY USER VAR=AUTHOR' 'QUERY VER VAR=VERSION' 'QUERY DOC VAR=DOC' 'FIX VAR=DOC' 'SUFFIX STRING="' || DOC || '" SUFFIX=".html"' 'NAME NEW=' || RESULT 'REQUEST TITLE="Create new HTML document" BODY="Select one of the following options:||1) Step-by-step setup|2) Quick setup" BUTTON="!STEP|_Quick|_Cancel" VAR=QUICK' if ((RC = 0) & (RESULT ~= 0)) then do if (QUICK = 1) then do 'REQUEST STRING TITLE="Create new HTML document" BODY="Document''s title " OLD="Untitled" VAR=TITLE' if (RC = 0) then do 'REQUEST STRING TITLE="Create new HTML document" BODY="Document''s author " OLD="' || AUTHOR || '" VAR=AUTHOR' if (RC = 0) then do 'REQUEST STRING TITLE="Create new HTML document" BODY="Short description " OLD="Empty document" VAR=DESCRIPTION' if (RC = 0) then do 'REQUEST STRING TITLE="Create new HTML document" BODY="Keywords for search engines (, ...) " VAR=KEYWORDS' if (RC = 0) then do 'FIX VAR=TITLE' 'FIX VAR=AUTHOR' 'FIX VAR=DESCRIPTION' 'FIX VAR=KEYWORDS' 'GOTO COLUMN=1' 'TEXT CR T=""' 'CR' 'TEXT CR T=""' 'TEXT CR T=""' 'TEXT CR T="' || TITLE || '"' 'TEXT CR T=""' CR 'TEXT CR T=""' 'TEXT CR T=""' 'TEXT CR T=""' 'TEXT CR T=""' 'CR' 'TEXT CR T=""' 'CR' 'TEXT CR T=""' 'PING SLOT=0' 'CR' 'TEXT CR T=""' 'CR' 'TEXT CR T=""' 'PONG SLOT=0' 'REQUEST STATUS="Insert your text here."' end end end end end else do 'GOTO COLUMN=1' 'TEXT CR T=""' 'CR' 'TEXT CR T=""' 'TEXT CR T=""' 'TEXT CR T="Untitled"' 'TEXT CR T=""' CR 'TEXT CR T=""' 'TEXT CR T=""' 'TEXT CR T=""' 'TEXT CR T=""' 'CR' 'TEXT CR T=""' 'CR' 'TEXT CR T=""' 'PING SLOT=0' 'CR' 'TEXT CR T=""' 'CR' 'TEXT CR T=""' 'PONG SLOT=0' 'REQUEST STATUS="Insert your text here."' endif end /* ---------------------------- END OF YOUR CODE --------------------- */ 'UNLOCK' /* VERY important: unlock GUI */ EXIT SYNTAX: SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-(" 'UNLOCK' EXIT